use MobileMe;
my $username = '';
my $password = '';

my $deviceVersion = '7A341'; #3.0
#my $deviceVersion = '5A347'; #2.0

my $deviceId = '8cfd00eb717b9b1baa8e7aee25d911a0adc76e29'; #mine

die "Usage: $0 <username> <password>\n" unless $#ARGV == 1;

$username = @ARGV[0];
$password = @ARGV[1];
my $mm = MobileMe->new($username,$password);
$loc = $mm->GetLocationStatus($deviceId,$deviceVersion);
print $loc;
